Program test_client;

Uses
	Clients,Comptes,Types;
Var

colClient : TTabClient;
colComptes : TTabCompte;

Begin
colClient.tabclient[1].ID := 972;
colClient.tabclient[1].nom := 'Petit';
colClient.tabclient[1].prenom := 'Benoit';
colClient.tabclient[1].naissance := '15/05/1991';
colClient.tabclient[1].politesse := 'Monsieur';
colClient.tabclient[1].adresse := 'Chemin du Sercheron 5';
colClient.tabclient[1].npa := '1132';
colClient.tabclient[1].localite := 'Lully';
colClient.tabclient[1].telephone := '0218011205';

colClient.tabclient[2].ID := 1080;
colClient.tabclient[2].nom := 'Plug';
colClient.tabclient[2].prenom := 'Johann';
colClient.tabclient[2].naissance := '15/11/1991';
colClient.tabclient[2].politesse := 'Monsieur';
colClient.tabclient[2].adresse := 'Rue de l''eglise 2';
colClient.tabclient[2].npa := '1169';
colClient.tabclient[2].localite := 'Etoy';
colClient.tabclient[2].telephone := '0218011369';

colClient.tabclient[3].ID := 15;
colClient.tabclient[3].nom := 'Petit';
colClient.tabclient[3].prenom := 'Benoit';
colClient.tabclient[3].naissance := '15/05/1991';
colClient.tabclient[3].politesse := 'Monsieur';
colClient.tabclient[3].adresse := 'Chemin de la Motte 32';
colClient.tabclient[3].npa := '1896';
colClient.tabclient[3].localite := 'Corbusier';
colClient.tabclient[3].telephone := '0518563214';

colClient.nbelement := 3;
colClient.DernierIDClient := 3;

colComptes.tabcompte[1].IDcompte := 1;
colComptes.tabcompte[1].IDclient := 972;
colComptes.tabcompte[1].Libelle := 'Epargne';
colComptes.tabcompte[1].taux := '2.5';
colComptes.tabcompte[1].solde := 0;
colComptes.tabcompte[1].limite := 0;

colComptes.tabcompte[2].IDcompte := 2;
colComptes.tabcompte[2].IDclient := 972;
colComptes.tabcompte[2].Libelle := 'Courant';
colComptes.tabcompte[2].taux := '0.5';
colComptes.tabcompte[2].solde := 2000;
colComptes.tabcompte[2].limite := -1000;

colComptes.tabcompte[3].IDcompte := 50;
colComptes.tabcompte[3].IDclient := 1080;
colComptes.tabcompte[3].Libelle := 'Courant';
colComptes.tabcompte[3].taux := '0.5';
colComptes.tabcompte[3].solde := 500;
colComptes.tabcompte[3].limite := 0;

colComptes.tabcompte[4].IDcompte := 860;
colComptes.tabcompte[4].IDclient := 1080;
colComptes.tabcompte[4].Libelle := 'Courant';
colComptes.tabcompte[4].taux := '0.5';
colComptes.tabcompte[4].solde := 2000;
colComptes.tabcompte[4].limite := 1000;

colComptes.nbcompte := 4;
colComptes.IDListCompte := 4;

//WRITELN(indiceCompte(860,colComptes));
//creationCompte(1080,colComptes);
//afficheCompte(860,colComptes);
//WRITELN(colComptes.tabcompte[4].solde);
//depot(860,colComptes);
//virement(860,colComptes);
//WRITE(colComptes.tabcompte[3].solde);
//cloture(50,colComptes);
//WRITELN(colComptes.nbcompte);
//WRITELN(colComptes.tabcompte[2].IDcompte);
//WRITELN(colComptes.tabcompte[3].solde);
//WRITELN(colComptes.tabcompte[4].solde);
//virement(860,colComptes);
//WRITELN(colComptes.tabcompte[3].solde);
//WRITELN(colComptes.tabcompte[4].solde);
//WRITELN(testCompte(860,1080,colComptes));
//WRITELN(indiceClient(1080,colClient));
//afficheclient(972,colClient);
//listing(colClient)
rechercheClient(colClient,'','','');
//selectClient(colClient);
//WRITELN(id(1,colClient));




end.
